home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00776_SU- fam bt bŽbte.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.0 KB  |  47 lines
  1. on mouseDown
  2.   global g1erSprLoc, gNumSpr
  3.   curseur(2)
  4.   repeat with i = g1erSprLoc to g1erSprLoc + 17
  5.     if rollOver(i) then
  6.       set gNumSpr to i
  7.       exit repeat
  8.     end if
  9.   end repeat
  10. end
  11.  
  12. on mouseUp
  13.   global g1erSprLoc, gNumSpr
  14.   curseur(1)
  15.   set monNumSpr to -2
  16.   repeat with i = g1erSprLoc to g1erSprLoc + 17
  17.     if rollOver(i) then
  18.       set monNumSpr to i
  19.       exit repeat
  20.     end if
  21.   end repeat
  22.   if monNumSpr = gNumSpr then
  23.     MouseClick(gNumSpr - 21)
  24.   else
  25.     pass()
  26.   end if
  27. end
  28.  
  29. on MouseClick monSpr
  30.   global gListSuj, gListCod, g1erSprLoc, gNumSpr, gSujet0, gSujet1, gCDpath, gLocLabel, gLabel, gVersion, gSurvolPrec
  31.   set gSujet0 to getAt(gListSuj, monSpr)
  32.   set moncod to gSujet0(Le_Code)
  33.   if moncod = "HSN" then
  34.     set gSujet1 to 0
  35.     set the fileName of cast "FICHE SUJET" to gVersion & "S" & moncod & "F.PIC"
  36.     put gVersion & "S" & moncod & "F.PIC"
  37.     set the visible of sprite 3 to 1
  38.     set gLocLabel to "SU:OU FA"
  39.     set gLabel to "SU:IN GE"
  40.     continue()
  41.     curseur(-1)
  42.   else
  43.     beep()
  44.     set gSurvolPrec to -1
  45.   end if
  46. end
  47.